home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / MAKERAMK.CM0 < prev    next >
Text File  |  1992-01-20  |  7KB  |  383 lines
  1. OpenBox 1  0 0 79 24 "- Scripta Generator for RemoteAccess with MkQwk "
  2. %generate := TRUE
  3. %getresp := FALSE
  4. Gosub GetInfo
  5. If %generate
  6.    Shell "!Generate %packet !RAMK.TEM"
  7. EndIf
  8. CloseBox 1
  9. Exit
  10.  
  11. :GetInfo
  12. Fore YELLOW
  13. RowCol 2 2
  14. Message "QWK packet name used by BBS:"
  15. RowCol 2 40
  16. Message "MkQwk Key from Message Menu:"
  17. RowCol 4 2
  18. Message "Full name of BBS:"
  19. RowCol 4 52
  20. Message "Virtual Port:"
  21. RowCol 6 2
  22. Message "Username on this BBS:"
  23. RowCol 8 2
  24. Message "Password on this BBS:"
  25. RowCol 10 2
  26. Message "Telephone Number 1:"
  27. RowCol 12 2
  28. Message "Telephone Number 2:"
  29. RowCol 14 2
  30. Message "Telephone Number 3:"
  31. RowCol 16 2
  32. Message "Telephone Number 4:"
  33. RowCol 18 2
  34. Message "Seconds to wait for connection:"
  35. RowCol 18 37
  36. Message "Ask before deleting .F?L files?"
  37. RowCol 20 2
  38. Message "Gateway string:"
  39. RowCol 20 39
  40. Message "Response:"
  41. CurOff
  42. RowCol 22 2
  43. Fore White
  44. Message "Please wait..."
  45. Gosub GetCFGFile
  46. If %generate
  47.    Gosub Display
  48. EndIf
  49. RowCol 22 2
  50. CLL
  51. CurOn
  52. If %generate
  53.    Gosub GetRamKey
  54. EndIf
  55. If %generate
  56.    Gosub GetBBS
  57. EndIf
  58. If %generate
  59.    Gosub GetPort
  60. EndIf
  61. If %generate
  62.    Gosub GetUser
  63. EndIf
  64. If %generate
  65.    Gosub GetPword
  66. EndIf
  67. If %generate
  68.    Gosub GetNumbers
  69. EndIf
  70. If %generate
  71.    Gosub GetWaitTime
  72. EndIf
  73. If %generate
  74.    Gosub GetConfirm
  75. EndIf
  76. If %generate
  77.    Gosub GetGateway
  78. EndIf
  79. If %generate & %getresp
  80.    Gosub GetResponse
  81. EndIf
  82. If %generate
  83.    Gosub PutCFGFile
  84. EndIf
  85. If %generate
  86.    RowCol 22 2
  87.    Fore Yellow
  88.    Message "Continue with script generation? (Y/N) "
  89.    Fore White
  90.    %a := "z"
  91.    While $eq(%a,"z")
  92.       CurOn
  93.       GetKey %a %b
  94.       CurOff
  95.       $caps %a
  96.       If $eq(%a,"N")
  97.          %generate := FALSE
  98.       ElsIf $eq(%a,"Y")
  99.          %generate := TRUE
  100.       Else
  101.          %a := "z"
  102.       EndIf
  103.    EndWhile
  104.    Message %a
  105. EndIf
  106. Return
  107.  
  108. :Display
  109. RowCol 2 31
  110. Message "%packet"
  111. RowCol 2 70
  112. Message "%ramkey"
  113. RowCol 4 20
  114. Message "%bbs"
  115. RowCol 4 66
  116. Message %vport
  117. RowCol 6 24
  118. Message "%name"
  119. RowCol 8 24
  120. Message "%pword"
  121. RowCol 10 22
  122. Message "%numbera"
  123. RowCol 12 22
  124. Message "%numberb"
  125. RowCol 14 22
  126. Message "%numberc"
  127. RowCol 16 22
  128. Message "%numberd"
  129. RowCol 18 34
  130. Message "%waittime"
  131. RowCol 18 69
  132. Message "%confirm"
  133. RowCol 20 18
  134. Message %gateway
  135. RowCol 20 49
  136. Message |%response
  137. Return
  138.  
  139. :GetRamKey
  140. RowCol 2 70
  141. %buffer := "%ramkey"
  142. Input %buffer 1 1 %buffer
  143. $caps %buffer
  144. %generate := $len(%buffer) # 0
  145. If %generate
  146.    %ramkey := "%buffer"
  147. EndIf
  148. Return
  149.  
  150. :GetBBS
  151. RowCol 4 20
  152. %buffer := "%bbs"
  153. Input %buffer 30 30 %buffer
  154. %generate := $len(%buffer) # 0
  155. If %generate
  156.    %bbs := "%buffer"
  157. EndIf
  158. Return
  159.  
  160. :GetPort
  161. RowCol 4 66
  162. %buffer := "%vport"
  163. Input %buffer 1 1 %buffer
  164. %generate := $len(%buffer) # 0
  165. If %generate
  166.    %vport := "%buffer"
  167. EndIf
  168. Return
  169.  
  170. :GetUser
  171. RowCol 6 24
  172. %buffer := "%name"
  173. Input %buffer 25 25 %buffer
  174. %generate := $len(%buffer) # 0
  175. If %generate
  176.    %name := "%buffer"
  177. EndIf
  178. Return
  179.  
  180. :GetPword
  181. RowCol 8 24
  182. %buffer := "%pword"
  183. Input %buffer 12 12 %buffer
  184. %generate := $len(%buffer) # 0
  185. If %generate
  186.    %pword := "%buffer"
  187. EndIf
  188. Return
  189.  
  190. :GetNumbers
  191. %i := 1
  192. While %i < 5
  193.    %row := 8+(2*%i)
  194.    RowCol %row 22
  195.    Case %i
  196.      CaseOf 1
  197.         %buffer := "%numbera"
  198.      CaseOf 2
  199.         %buffer := "%numberb"
  200.      CaseOf 3
  201.         %buffer := "%numberc"
  202.      CaseOf 4
  203.         %buffer := "%numberd"
  204.    EndCase
  205.    Input %buffer 25 25 %buffer
  206.    If $len(%buffer) # 0
  207.       If $eq(%buffer[0],"*")
  208.          %buffer := ""
  209.          RowCol %row 22
  210.          Message "                         "
  211.       EndIf
  212.       Case %i
  213.         CaseOf 1
  214.            %numbera := "%buffer"
  215.         CaseOf 2
  216.            %numberb := "%buffer"
  217.         CaseOf 3
  218.            %numberc := "%buffer"
  219.         CaseOf 4
  220.            %numberd := "%buffer"
  221.       EndCase
  222.    EndIf
  223.    Inc %i
  224. EndWhile
  225. Return
  226.  
  227. :GetWaitTime
  228. RowCol 18 34
  229. %buffer := "%waittime"
  230. Input %buffer 2 2 %buffer
  231. %generate := $len(%buffer) # 0
  232. If %generate
  233.    %waittime := "%buffer"
  234. EndIf
  235. Return
  236.  
  237. :GetConfirm
  238. %buffer := "%confirm"
  239. %old := "%buffer"
  240. %ok := FALSE
  241. While not %ok
  242.    %ok := TRUE
  243.    RowCol 18 69
  244.    Input %buffer 1 1 %buffer
  245.    $caps %buffer
  246.    If $ne(%buffer,"Y") & $ne(%buffer,"N") & $ne(%buffer,"")
  247.       %ok := FALSE
  248.       %buffer := %old
  249.    EndIf
  250. EndWhile
  251. %generate := $len(%buffer) # 0
  252. If %generate
  253.    %confirm := "%buffer"
  254. EndIf
  255. RowCol 18 69
  256. Message %confirm
  257. Return
  258.  
  259. :GetGateway
  260. RowCol 20 18
  261. %buffer := "%gateway"
  262. Input %buffer 20 20 %buffer
  263. %gateway := "%buffer"
  264. %getresp := $len(%gateway) # 0
  265. If not %getresp
  266.    %response := ""
  267.    RowCol 20 18
  268.    Message "                    "
  269.    RowCol 20 49
  270.    Message "                    "
  271. EndIf
  272. Return
  273.  
  274. :GetResponse
  275. %buffer := "%response"
  276. %ok := FALSE
  277. While not %ok
  278.    RowCol 20 49
  279.    Input %buffer 20 20 %buffer
  280.    CurOn
  281.    %ok := $len(%buffer) # 0
  282. EndWhile
  283. %response := "%buffer"
  284. Return
  285.  
  286. :BadWrite
  287. Message "Error writing to file " "%ScrName^M^J^M^J "
  288. Gosub Bad
  289. Return
  290.  
  291. :Bad
  292. CurOff
  293. Message "Press any key when ready."
  294. GetKey %a %b
  295. CurOn
  296. Return
  297.  
  298. :PutCFGFile
  299. %cfg := fopen %cfgname
  300. If %Error
  301.    Message "Error re-opening file " %cfgname
  302.    %generate := FALSE
  303. Else
  304.    %cfg := fwrite K
  305.    %cfg := fnewline
  306.    %cfg := fwrite %name
  307.    %cfg := fnewline
  308.    %cfg := fwrite %pword
  309.    %cfg := fnewline
  310.    %cfg := fwrite %ramkey
  311.    %cfg := fnewline
  312.    %cfg := fwrite %bbs
  313.    %cfg := fnewline
  314.    %cfg := fwrite %numbera
  315.    %cfg := fnewline
  316.    %cfg := fwrite %numberb
  317.    %cfg := fnewline
  318.    %cfg := fwrite %numberc
  319.    %cfg := fnewline
  320.    %cfg := fwrite %numberd
  321.    %cfg := fnewline
  322.    %cfg := fwrite %waittime
  323.    %cfg := fnewline
  324.    %cfg := fwrite %gateway
  325.    %cfg := fnewline
  326.    %cfg := fwrite %response
  327.    %cfg := fnewline
  328.    %cfg := fwrite %vport
  329.    %cfg := fnewline
  330.    %cfg := fwrite %confirm
  331.    %cfg := fnewline
  332.    %cfg := fclose
  333. EndIf
  334. Return
  335.  
  336. :GetCFGFile
  337. %ramkey := "Q"
  338. %name := ""
  339. %pword := ""
  340. %bbs := ""
  341. %numbera := ""
  342. %numberb := ""
  343. %numberc := ""
  344. %numberd := ""
  345. %waittime := "20"
  346. %gateway := ""
  347. %response := ""
  348. %vport := "%dport"
  349. %confirm := "Y"
  350. RowCol 22 2
  351. %cfgname := "%packet..CFG"
  352. %cfg := fopen %cfgname
  353. If %Error
  354.    %cfg := fcreate %cfgname
  355.    If %Error
  356.       Message "Unable to open or create file " %cfgname ". Press a key."
  357.       CurOff
  358.       GetKey %a %b
  359.       CurOn
  360.       %generate := FALSE
  361.    Else
  362.       Message "New file created - %cfgname"
  363.       %cfg := fclose
  364.    EndIf
  365. Else
  366.    %cfg := fread %name  ; dummy read to bypass the 'Type' byte
  367.    %cfg := fread %name
  368.    %cfg := fread %pword
  369.    %cfg := fread %ramkey
  370.    %cfg := fread %bbs
  371.    %cfg := fread %numbera
  372.    %cfg := fread %numberb
  373.    %cfg := fread %numberc
  374.    %cfg := fread %numberd
  375.    %cfg := fread %waittime
  376.    %cfg := fread %gateway
  377.    %cfg := fread %response
  378.    %cfg := fread %vport
  379.    %cfg := fread %confirm
  380.    %cfg := fclose
  381. EndIf
  382. Return
  383.